1 REM****************   MARTIN ROSCHER
2 REM**  LOGIKER   **   BLATTUR 31
3 REM**    AM      **   A-6840 GOETZIS
4 REM** 3.0KT.1993 **   OESTERREICH
5 REM*********************************
10 PRINT"[147] LOGIKER [165]  *** NOTENDEF-ANLEITUNG ***  [146]
20 [153]" 1. OKTAVE MIT  OKT=X  EINGEBEN
30 PRINT" 2. POKE LOB,FNLO(Y)                        POKE HIB,FNHI(Y)
40 [153]"    Y=1 BIS 12 (1=C,2=C#,3=D,...)
50 DEF FNP(N)=INT(7493*(2^(OKT+(N-10)/12)+.5)
60 DEF FNHI(N)=INT(FNP(N)/256)
70 DEF FNLO(N)=INT(FNP(N)-FNHI(N)*256)
80 SID=54272:LOB=SID:HIB=SID+1
90 PRINT" POKE LAUT,X....LAUTSTAERKE(0-15)
100 [153]" POKE WELLE,X...WELLENFORM
110 LAUT=SID+24:WELLE=SID+4:ANSCHL=SID+5:HLT=SID+6
120 PRINT"POKE TVL,X: POKE TVH,X
130 TVL[178]SID[170]2:TVH[178]SID[170]3
140 [153]" POKE ANSCHL,ANSL*16+ABSCHWALL
150 PRINT" POKE HLT,HLT*16+AUSKLANG
160 [161] B$:[139] B$[178]""[167] 160
170 [161]A$:[139]A$[178]""[167] 170
180 [153]"LOAD WENN SIE FREQUENZEN ABSPIELEN WOLLEN,   GEHT DIES FOLGENDERMASSEN:
190 PRINT"   POKE LOB,FNSL(FREQ)                     POKE HIB,FNSH(FREQ)